home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MacOberon.cpt / MacOberonToolBoxInterface.sit / MacEvents.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1990-08-30  |  1.1 KB  |  32 lines  |  [.Ob./.Ob*]
  1. Syntax10.Scn.Fnt
  2. MODULE MacEvents;    (* Macintosh OS Interface Module    Michael Franz, 30.08.90   Incomplete Definition *)
  3. IMPORT
  4.     TY:= MacTypes, QD:= MacQuickDraw;
  5. CONST
  6.     nullEvent*= 0;    mouseDown*= 1;    mouseUp*= 2;    keyDown*= 3;
  7.     keyUp*= 4;    autoKey*= 5;    updateEvt*= 6;    diskEvt*= 7;
  8.     activateEvt*= 8;    networkEvt*= 10;    driverEvt*= 11;
  9.     app1Evt*= 12;    app2Evt*= 13;    app3Evt*= 14;    app4Evt*= 15;
  10.     everyEvent*= -1;
  11.     (* Control characters which can be generated on the Macintosh keyboard *)
  12.         ETX*= 3X;    (* enter (keyboard or keypad *)
  13.         BS*= 8X;    (* backspace (keyboard) *)
  14.         HT*= 9X;    (* tab (keyboard) *)
  15.         CR*= 0DX;    (* return (keyboard) *)
  16.         ESC*= 1BX;    (* clear (keypad) *)
  17.         FS*= 1CX;    (* left (keypad) *)
  18.         GS*= 1DX;    (* right (keypad) *)
  19.         RS*= 1EX;    (* up (keypad) *)
  20.         US*= 1FX;    (* down (keypad) *)
  21.         SP*= 20X;    (* space (keyboard) *)
  22.     EventRecord*= RECORD +
  23.         what*: INTEGER;
  24.         message*: LONGINT;
  25.         when*: LONGINT;
  26.         where*: TY.Point;
  27.         modifiers*: INTEGER
  28.     END;
  29. PROCEDURE - WaitNextEvent*(mask: INTEGER; VAR event: EventRecord;
  30.                                                     sleep: LONGINT; mouseRgn: QD.RgnHandle): BOOLEAN    0A8H, 60H;
  31. END MacEvents.
  32.